home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Programming / OUI / envman.lha / EnvManager / rcs / stringreq.cc < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-23  |  1.3 KB  |  81 lines
  1. head    1.1;
  2. access;
  3. symbols;
  4. locks
  5.     dlorre:1.1; strict;
  6. comment    @// @;
  7.  
  8.  
  9. 1.1
  10. date    96.08.23.16.57.28;    author dlorre;    state Exp;
  11. branches;
  12. next    ;
  13.  
  14.  
  15. desc
  16. @EnvManager : Gestionnaire d'Environnement
  17. Auteur : Dominique Lorre
  18. @
  19.  
  20.  
  21. 1.1
  22. log
  23. @Initial revision
  24. @
  25. text
  26. @// stringreq.cc
  27. // 01.02.95
  28.  
  29. #include "stringreq.h"
  30.  
  31. void rstring::open(screen *nws)
  32. {
  33.  
  34.     strcpy(sname, def) ;
  35.     ws = nws ;
  36.  
  37.     g = new gadgetlist(this, 3) ;
  38.  
  39.     g->box(20, g->fontheight+8, ws->width/2-40, g->fontheight+4) ;
  40.     new string(g, WFUNC(&rstring::fstring), NULL, def) ;
  41.  
  42.     prepbox(TRUE) ;
  43.  
  44.     window::_open(NULL, BUTTONIDCMP,
  45.         WA_Title,               titre,
  46.         WA_Activate,            TRUE,
  47.         WA_DragBar,             TRUE,
  48.         WA_SimpleRefresh,       TRUE,
  49.         WA_Gadgets,             g->glist,
  50.         TAG_DONE) ;
  51.  
  52.     if (initok)
  53.         g->updategadgets() ;
  54. }
  55.  
  56. void rstring::fstring(gadget *g, unsigned long classe, unsigned short code)
  57. {
  58.     strcpy(sname, ((string *)g)->curstring) ;
  59. }
  60.  
  61. STRPTR StringRequest(STRPTR title, STRPTR def)
  62. {
  63. STRPTR retstr=NULL ;
  64. rstring rs(120, 20, 400, 70) ;
  65.  
  66.     rs.def = def ;
  67.     rs.titre = title ;
  68. //    beginWait();
  69.     rs.open(ns) ;
  70.     rs.eventloop() ;
  71.     rs.close() ;
  72. //    endWait() ;
  73.  
  74.     if (rs.okflag) {
  75.         retstr = new char[strlen(rs.sname)+1] ;
  76.         strcpy(retstr, rs.sname) ;
  77.     }
  78.     return retstr ;
  79. }
  80. @
  81.